home *** CD-ROM | disk | FTP | other *** search
/ SGI Performance Co-Pilot 1.3 / SGI Performance Co-Pilot 1.3.iso / dist / dist6.4 / pcp.idb / usr / sbin / dkvis.z / dkvis
Text File  |  1997-04-03  |  6KB  |  261 lines
  1. #!/bin/sh
  2. # 
  3. #  Copyright (c) 1994 Silicon Graphics, Inc.
  4. #  ALL RIGHTS RESERVED.
  5. # 
  6. #  U.S. GOVERNMENT RESTRICTED RIGHTS LEGEND
  7. #  Use, duplication or disclosure by the Government is subject to
  8. #  restrictions as set forth in FAR 52.227.19(c)(2) or subparagraph
  9. #  (c)(1)(ii) of the Rights in Technical Data and Computer Software clause
  10. #  at DFARS 252.227-7013 and/or similar or successor clauses in the FAR,
  11. #  or the DOD or NASA FAR Supplement.  Contractor/manufacturer is Silicon
  12. #  Graphics, Inc., 2011 N. Shoreline Blvd., Mountain View, CA 94039-7311.
  13. # 
  14. #  THIS SOFTWARE CONTAINS CONFIDENTIAL AND PROPRIETARY INFORMATION OF
  15. #  SILICON GRAPHICS, INC.  ANY DUPLICATION, MODIFICATION, DISTRIBUTION, OR
  16. #  DISCLOSURE IS STRICTLY PROHIBITED WITHOUT THE PRIOR EXPRESS WRITTEN
  17. #  PERMISSION OF SILICON GRAPHICS, INC.
  18. # /
  19.  
  20. #
  21. # $Id: dkvis.sh,v 2.12 1997/03/21 08:24:03 kenmcd Exp $
  22. #
  23.  
  24. tmp=/tmp/$$
  25. trap "rm -f $tmp.*; exit" 0 1 2 3  15
  26. rm -f $tmp.*
  27.  
  28. . /usr/pcp/lib/pmview-args
  29.  
  30. _usage()
  31. {
  32.     echo >$tmp.msg 'Usage: '$prog' [options]
  33.  
  34. options:
  35.   -m   maxrate    maximum I/O rate expected (integer) [default 100]
  36.   -r              display Read I/O rate
  37.   -v   version    generate scene for different versions of pmview [default 2]
  38.   -V              verbose/diagnostic output
  39.   -w              display Write I/O rate
  40.  
  41. pmview(1) options:'
  42.  
  43.     _pmview_usage >>$tmp.msg
  44.     echo >>$tmp.msg
  45.     echo 'Default title is: Total I/O Rate for Host' >>$tmp.msg
  46.     _pmview_info -f $tmp.msg
  47. }
  48.  
  49. verbose=false
  50. version="2"
  51. type=total
  52. Type=Total
  53. max=150
  54.  
  55. _pmview_args "$@"
  56.  
  57. if [ -n "$otherArgs" ]
  58. then
  59.     while getopts "?m:rv:Vw" c $otherArgs
  60.     do
  61.     case $c
  62.     in
  63.         m)
  64.         max=$OPTARG
  65.         # and now the obscure +ve integer checking bit
  66.         # ...note the creative use of unary - to prevent leading signs
  67.         if [ "X-$max" != "X`expr 0 + -$max 2>/dev/null`" ]
  68.         then
  69.             _pmview_error "-m option must have a positive integral argument"
  70.             # NOTREACHED
  71.         fi
  72.         ;;
  73.         r)
  74.         if [ $type != total ]
  75.         then
  76.             _pmview_error "only one -r or -w option may be specified"
  77.             # NOTREACHED
  78.         fi
  79.         type=read
  80.         Type=Read
  81.         ;;
  82.         v)
  83.         version=$OPTARG
  84.         if [ $version != "1" -a $version != "2" ]
  85.         then
  86.             _pmview_error "only versions 1 and 2 supported for -v"
  87.             # NOTREACHED
  88.         fi
  89.         ;;
  90.         V)
  91.         verbose=true
  92.         ;;
  93.         w)
  94.         if [ $type != total ]
  95.         then
  96.             _pmview_error "only one -r or -w option may be specified"
  97.             # NOTREACHED
  98.         fi
  99.         type=write
  100.         Type=Write
  101.         ;;
  102.         ?)
  103.         _usage
  104.         exit 1
  105.         ;;
  106.  
  107.     esac
  108.     done
  109.     set -- $otherArgs
  110.     shift `expr $OPTIND - 1`
  111.     if [ $# -gt 0 ]
  112.     then
  113.     _usage
  114.     exit 1
  115.     fi
  116. fi
  117.  
  118. if [ "X$arch" != X ]
  119. then
  120.     pmprobe $namespace -a $arch -I irix.disk.dev.$type >$tmp.dk
  121.     host=`pmdumplog -l $arch | awk '/^Performance/ {print $5}' | sed -e 's/,//g'`
  122.     [ "X$host" = X ] && host="unknown host"
  123.     host="$host (Archive $arch)"
  124. elif [ "X$host" = X ]
  125. then
  126.     host=`/usr/bsd/hostname`
  127. fi
  128.  
  129. # if not an archive, contact the host
  130. [ ! -f $tmp.dk ] && pmprobe $namespace -h $host -I irix.disk.dev.$type >$tmp.dk
  131.  
  132. eval `sed <$tmp.dk \
  133.     -e 's/"//g' \
  134.     -e 's/$/ /' \
  135.     -e "s/^[^ ]* /ndisk=/" \
  136.     -e 's/ / disks="/' \
  137.     -e 's/"$/""/' \
  138.     -e 's/ $/"/'`
  139.  
  140. if [ -z "$disks" -o -z "$ndisk" -o "$ndisk" -lt 1 ]
  141. then
  142.     echo "Cannot get disk inventory!" >$tmp.msg
  143.     cat $tmp.dk >>$tmp.msg
  144.     _pmview_error -f $tmp.msg
  145.     # NOTREACHED
  146. fi
  147.  
  148. rm -f $tmp.conf
  149. touch $tmp.conf
  150.  
  151. if [ "$version" = 1 ]
  152. then
  153.     vstring="# pmview 1.0"
  154. else
  155.     vstring="pmview Version $version.0"
  156. fi
  157.  
  158. cat << end-of-file >> $tmp.conf
  159. $vstring
  160. #
  161. # dkvis
  162. #
  163. end-of-file
  164.  
  165. if $verbose
  166. then
  167.     echo "# Disk Inventory:" >> $tmp.conf
  168.     echo $disks | fmt | sed -e 's/^/#    /' >> $tmp.conf
  169. fi
  170.  
  171. if [ "$version" = "2" ]
  172. then
  173.  
  174. #
  175. # pmview 2.0
  176. #
  177.  
  178.     echo '
  179. _scale 1.1
  180. _colorlist colors ( green1 blue1 red1 cyan1 purple1 yellow1 )
  181. _labeledbar (
  182.     _colorlist colors
  183.     _metrics (' >> $tmp.conf
  184.  
  185.    echo "$disks" \
  186. | tr ' ' '\012' \
  187. | sed \
  188.     -e 's/.../& /' \
  189.     -e 's/\([0-9]\)d\([0-9]\)/\1 d \2/' \
  190.     -e 's/\([0-9]\)l\([0-9]\)/\1 l \2/' \
  191. | sort +0 -1 +1n -2 +3n -4 \
  192. | awk '
  193. BEGIN    { type = ""; ctl = ""; list = ""; labels = ""}
  194.     { if ($1 != type || $2 != ctl) {
  195.         if (list != "")
  196.             print "        irix.disk.dev.'$type'[" list "] " '$max'
  197.         list = $1 $2 $3 $4 $5 $6
  198.         labels = labels " \"" $1 $2 "\""
  199.         type = $1
  200.         ctl = $2
  201.       }
  202.       else
  203.         list = list "," $1 $2 $3 $4 $5 $6
  204.     }
  205. END    { if (list != "")
  206.         print "        irix.disk.dev.'$type'[" list "] " '$max'
  207.         print "    )"
  208.         print "    _metriclabels (" labels " )"
  209.         print ")"
  210.     }' >> $tmp.conf
  211.  
  212. else
  213.  
  214. #
  215. # pmview 1.0
  216. #
  217.  
  218.     echo "$disks" \
  219. | tr ' ' '\012' \
  220. | sed \
  221.     -e 's/.../& /' \
  222.     -e 's/\([0-9]\)d\([0-9]\)/\1 d \2/' \
  223.     -e 's/\([0-9]\)l\([0-9]\)/\1 l \2/' \
  224. | sort +0 -1 +1n -2 +3n -4 \
  225. | awk '
  226. BEGIN    { type = ""; ctl = ""; x = 0
  227.       col[0] = "0.0 1.0 0.0"
  228.       col[1] = "0.0 0.0 1.0"
  229.       col[2] = "1.0 0.0 0.0"
  230.       col[3] = "0.0 1.0 1.0"
  231.       col[4] = "1.0 1.0 0.0"
  232.       col[5] = "1.0 0.0 1.0"
  233.       col[6] = "0.0 1.0 0.5"
  234.       col[7] = "0.5 0.0 1.0"
  235.       col[8] = "1.0 0.5 0.0"
  236.       col[9] = "0.5 1.0 0.5"
  237.       col[10] = "1.0 0.5 0.5"
  238.       col[11] = "0.5 0.5 1.0"
  239.     }
  240.     { if ($1 != type || $2 != ctl) {
  241.         type = $1; ctl = $2; x++; y = 0; tag = $1 $2
  242.       }
  243.       else
  244.         tag = "-"
  245.       print x " " y " " col[y % 12] " '$max' " tag " irix.disk.dev.'$type' " $1 $2 $3 $4 $5 $6
  246.       y++
  247.     }' >> $tmp.conf
  248.  
  249. fi
  250.  
  251. $verbose && cat $tmp.conf
  252.  
  253. if [ -z "$titleArg" ]
  254. then
  255.     titleArg="$Type Disk I/O Rate for Host $host"
  256. fi
  257.  
  258. eval pmview <$tmp.conf $args -title "'$titleArg'" -xrm "'*iconName: dkvis'"
  259.  
  260. exit
  261.